home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Random Stack.cpt / Andy's New Software / card_6239.txt < prev    next >
Text File  |  1988-01-29  |  4KB  |  166 lines
  1. -- card: 6239 from stack: in
  2. -- bmap block id: 6844
  3. -- flags: 0000
  4. -- background id: 3685
  5. -- name: Lawsuit Card
  6. ----- HyperTalk script -----
  7. on button "get back"
  8.   go back
  9. end button
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: A005
  15. -- rect: left=72 top=173 right=191 bottom=255
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Trademark Infringement
  24.  
  25.  
  26. -- part 2 (button)
  27. -- low flags: 00
  28. -- high flags: A005
  29. -- rect: left=72 top=152 right=170 bottom=199
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: "Look and Feel"
  38.  
  39.  
  40. -- part 3 (button)
  41. -- low flags: 00
  42. -- high flags: A005
  43. -- rect: left=265 top=173 right=191 bottom=438
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: I Need Some Fast Cash
  52.  
  53.  
  54. -- part 4 (button)
  55. -- low flags: 00
  56. -- high flags: A005
  57. -- rect: left=209 top=152 right=170 bottom=416
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: I'm easily fucking offended
  66.  
  67.  
  68. -- part 10 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=2 top=65 right=104 bottom=48
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: New Button
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   domenu Print Card
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 5 (field)
  88. -- low flags: 00
  89. -- high flags: 4000
  90. -- rect: left=70 top=232 right=294 bottom=439
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 9
  96. -- style flags: 0
  97. -- line height: 12
  98. -- part name: 
  99.  
  100.  
  101. -- part 8 (button)
  102. -- low flags: 00
  103. -- high flags: 2000
  104. -- rect: left=7 top=259 right=293 bottom=44
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Get Back
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   go back
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 11 (field)
  121. -- low flags: 81
  122. -- high flags: 0001
  123. -- rect: left=60 top=98 right=295 bottom=450
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 20
  128. -- text size: 18
  129. -- style flags: 0
  130. -- line height: 24
  131. -- part name: Apology
  132. ----- HyperTalk script -----
  133. on mouseup
  134.   send mouseup to button "Okay"
  135. end mouseup
  136.  
  137.  
  138.  
  139. -- part 12 (button)
  140. -- low flags: 00
  141. -- high flags: A003
  142. -- rect: left=380 top=68 right=93 bottom=444
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Apology
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   if visible of card field "Apology" then
  154.     set visible of card field "Apology" to false
  155.     set the name of button "Okay" to "Apology"
  156.   else
  157.     set visible of card field "Apology" to true
  158.     set the name of button "apology" to "Okay"
  159.   end if
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part contents for card part 11
  165. ----- text -----
  166. Okay, okay...I used ‚ÄúThe ‚ÄòF‚Äô Word‚Äù in this card, and I alluded that the girl in the main card was...free spirited.  I‚Äôm sorry.  Hope none of you out there are little children.  At any rate, please fill in this card and send it in with suggestions on what you liked/hated about it.  Who knows...you may see more useful/offensive stacks from me  in the future.